' Copyright 2011-2012 Martin Leidel
'
' This software is provided 'as-is', without any express or implied
' warranty.  In no event will the authors be held liable for any damages
' arising from the use of this software.
' 
' Permission is granted to anyone to use this software for any purpose,
' including commercial applications, and to alter it and redistribute it
' freely, subject to the following restrictions:
' 
' 1. The origin of this software must not be misrepresented; you must not
' claim that you wrote the original software. If you use this software
' in a product, an acknowledgment in the product documentation would be
' appreciated but is not required.
' 2. Altered source versions must be plainly marked as such, and must not be
' misrepresented as being the original software.
' 3. This notice may not be removed or altered from any source distribution.

Strict

Import mojo
Import mnet

Function Main:Int()
  New TestApp()
  Return 0
End Function

Class TestApp Extends App
  Field result:String
  Field ht:Http = Null

  Method OnCreate:Int()
    SetUpdateRate(30)
    
    ht = New Http()
    result = ht.Get( "http://www.google.com", 3000 )
    Return 0
  End Method

  Method OnUpdate:Int()
    If( KeyHit( KEY_ESCAPE ) )
      Error ""
    End If
    
    Return 0
  End Method
  
  Method OnSuspend:Int()
    Return 0
  End Method
  
  Method OnResume:Int()
    Return 0
  End Method

  Method OnRender:Int()
    Cls
    DrawText( "Result: " + result, 10, 10 )
    Return 0
  End Method

End Class









